home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD022b.dsk / APPLE SKETCH.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  57 lines
  1. 10  REM  ************************
  2. 15  REM  *******   ETCH    ******
  3. 20  REM  ************************
  4. 25  HOME : VTAB 10: HTAB 10: PRINT "DO YOU NEED INSTRUCTIONS?"
  5. 30  VTAB 12: HTAB 17: PRINT "(YES OR NO)"
  6. 35  VTAB 13: HTAB 17: INPUT "";A$
  7. 40  IF  LEFT$(A$,1) = "Y"  THEN  GOTO 210
  8. 45  IF  LEFT$(A$,1) < >"N"  THEN  GOTO 25
  9. 50 C = 3
  10. 55  TEXT : GOTO 190
  11. 60  HCOLOR= C: HPLOT A,B
  12. 61  VTAB 21: PRINT "                      ": VTAB 21: PRINT A,B
  13. 63  VTAB 22: PRINT "HORIZONTAL","VERTICAL"
  14. 65  GOSUB 130
  15. 70  IF X = 209  THEN  TEXT : HOME : PRINT  CHR$(4);"RUN MENU"
  16. 72  IF X = 213  THEN A = A -1:B = B -1
  17. 75  IF X = 195  THEN  GOTO 50
  18. 76  IF X = 207  THEN A = A +1:B = B -1
  19. 77  IF X = 172  THEN A = A +1:B = B +1: GOTO 85
  20. 79  IF X = 206  THEN A = A -1:B = B +1
  21. 80  IF X <184  THEN  GOTO 150
  22. 85  IF X = 201  THEN B = B -1
  23. 90  IF X = 202  THEN A = A -1
  24. 95  IF X = 203  THEN A = A +1
  25. 100  IF X = 205  THEN B = B +1
  26. 105  IF B <0  THEN  PRINT "<CTRL-G>":B = 0
  27. 110  IF B >159  THEN  PRINT "<CTRL-G>":B = 159
  28. 115  IF A <0  THEN  PRINT "<CTRL-G>":A = 0
  29. 120  IF A >279  THEN  PRINT "<CTRL-G>":A = 279
  30. 125  GOTO 60
  31. 130 X =  PEEK( -16384): IF X >127  THEN  GOTO 140
  32. 135  GOTO 130
  33. 140  POKE  -16368,0: RETURN 
  34. 150  IF X = 176  THEN C = 0
  35. 153  IF X = 177  THEN C = 1
  36. 155  IF X = 178  THEN C = 2
  37. 160  IF X = 179  THEN C = 3
  38. 165  IF X = 180  THEN C = 4
  39. 170  IF X = 181  THEN C = 5
  40. 175  IF X = 182  THEN C = 6
  41. 180  IF X = 183  THEN C = 7
  42. 185  GOTO 60
  43. 190  HOME : VTAB 10: HTAB 10: PRINT "ENTER START POSTION": PRINT : HTAB 10: PRINT "HORIZONTAL  ";: INPUT "";A
  44. 200  PRINT : HTAB 10: PRINT "VERTICAL ";: INPUT "";B: HGR : GOTO 60
  45. 210  HOME : VTAB 5: PRINT "         TO DRAW, SIMPLY PRESS": PRINT "         THE FOLLOWING KEYS"
  46. 215  PRINT : HTAB 10: PRINT "I = UP": HTAB 10: PRINT "J = LEFT": HTAB 10: PRINT "K = RIGHT": HTAB 10: PRINT "M = DOWN"
  47. 220  PRINT : HTAB 10: PRINT "FOR DIAGIONAL MOVEMENT PRESS"
  48. 225  PRINT : HTAB 10: PRINT "U = LEFT & UP": HTAB 10: PRINT "O = RIGHT & UP": HTAB 10: PRINT "N = LEFT & DOWN": HTAB 10: PRINT ", = RIGHT & DOWN"
  49. 230  PRINT : HTAB 10: PRINT "PRESS RETURN TO CONTINUE": HTAB 10: INPUT "";A$
  50. 235  HOME : VTAB 5: HTAB 10: PRINT "TO CHANGE COLOR PRESS 0-7"
  51. 240  PRINT : HTAB 10: PRINT "0 = BLACK 1": HTAB 10: PRINT "1 = GREEN": HTAB 10: PRINT "2 = VIOLET": HTAB 10: PRINT "3 = WHITE 1"
  52. 245  HTAB 24: VTAB 7: PRINT "4 = BLACK 2": HTAB 24: PRINT "5 = ORANGE": HTAB 24: PRINT "6 = BLUE": HTAB 24: PRINT "7 = WHITE 2"
  53. 250  PRINT : PRINT : HTAB 6: PRINT "IF YOU HAVE AN OLDER APPLE COLORS": HTAB 6: PRINT "IN THE SECOND COLUMN WILL LOOK THE"
  54. 255  HTAB 6: PRINT "SAME AS THOSE IN THE FIRST COLUMN"
  55. 260  PRINT : PRINT : HTAB 10: PRINT "PRESS RETURN TO CONTINUE": HTAB 10: INPUT "";A$
  56. 265  HOME : VTAB 10: HTAB 10: PRINT "PRESS C TO CLEAR SCREEN": PRINT : HTAB 10: PRINT "TO QUIT PRESS Q": PRINT : PRINT : HTAB 10: PRINT "PRESS RETURN TO CONTINUE": HTAB 10: INPUT "";A$
  57. 270  GOTO 50